home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 1752.ZIP / MHD.ZIP / MHSRLIST.PRG < prev    next >
Text File  |  1986-03-09  |  640b  |  27 lines
  1. * MHSRLIST   DB3 PLUS                                REVISION  03/09/86
  2. *
  3. * Module uses drugs selected by search that are stored in MHWORK1.DBF
  4. * to pass choices to MHDISP.PRG for display of data for each of the drugs.
  5. *
  6. CLOSE DATABASES
  7. CLEAR
  8. PUBLIC key, datafile
  9. SELECT A
  10. datafile = 'MHDRUG INDEX MHDRUGID'
  11. SELECT B
  12. USE MHWORK1
  13. GOTO TOP
  14. DO WHILE .NOT. EOF()
  15.    STORE 0 TO line
  16.    CLEAR
  17.    * Select and display records
  18.    STORE DRUG_ID TO key
  19.    DO MHDISP 
  20.    SELECT MHWORK1
  21.    SKIP
  22. ENDDO WHILE .NOT. EOF
  23. WAIT 'END OF DRUG LIST. PRESS RETURN TO CONTINUE' TO waiting
  24. CLOSE DATABASES
  25. RETURN
  26.  
  27.